﻿<Serializable()> _
Public Class Eubigeo

#Region "           Atributos                       "
    Private _idUbigeo As String
    Private _descDepartamento As String
    Private _descProvincia As String
    Private _descDistrito As String
    Private _descripcion As String

    '******* RptGerenciales xDistrito *******'
    Private _cantidad As Int32
    Private _porcentaje As Decimal
#End Region

#Region "           Propiedades                     "
    Public Property idUbigeo() As String
        Get
            Return _idUbigeo
        End Get
        Set(ByVal value As String)
            _idUbigeo = value
        End Set
    End Property
    Public Property descDepartamento() As String
        Get
            Return _descDepartamento
        End Get
        Set(ByVal value As String)
            _descDepartamento = value
        End Set
    End Property
    Public Property descProvincia() As String
        Get
            Return _descProvincia
        End Get
        Set(ByVal value As String)
            _descProvincia = value
        End Set
    End Property
    Public Property descDistrito() As String
        Get
            Return _descDistrito
        End Get
        Set(ByVal value As String)
            _descDistrito = value
        End Set
    End Property
    Public Property descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property

    '******* RptGerenciales xDistrito *******'
    Public Property cantidad() As Int32
        Get
            Return _cantidad
        End Get
        Set(ByVal value As Int32)
            _cantidad = value
        End Set
    End Property
    Public Property porcentaje() As Decimal
        Get
            Return _porcentaje
        End Get
        Set(ByVal value As Decimal)
            _porcentaje = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property descripcionUbigeo() As String
        Get
            Return descDepartamento.PadRight(22, " ") & " - " & descProvincia.PadRight(22, " ") & " - " & descDistrito.PadRight(22, " ")
        End Get
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idUbigeo As String)
        Me.idUbigeo = idUbigeo
    End Sub
    Public Sub New(ByVal idUbigeo As String, ByVal descripcion As String)
        Me.idUbigeo = idUbigeo
        Me.descripcion = descripcion
    End Sub
    Public Sub New(ByVal idUbigeo As String, ByVal descDepartamento As String, ByVal descProvincia As String, ByVal descDistrito As String)
        Me.idUbigeo = idUbigeo
        Me.descDepartamento = descDepartamento
        Me.descProvincia = descProvincia
        Me.descDistrito = descDistrito
    End Sub

    '******* RptGerenciales xDistrito *******'
    Public Sub New(ByVal idUbigeo As String, ByVal descripcion As String, ByVal cantidad As Int32, ByVal porcentaje As Decimal)
        Me.idUbigeo = idUbigeo
        Me.descripcion = descripcion
        Me.cantidad = cantidad
        Me.porcentaje = porcentaje
    End Sub
#End Region

End Class
